extern int zdscal_(integer *n, doublereal *da, doublecomplex *zx, integer *incx);
